﻿Public Class ClsDfrmImportForm
    'represents data object for frmImportForm

#Region "Attributes"
#Region "Private attributes"
    Private MoDsAModOneVersion As ClsDsAModOneVersion = Nothing 'aMod version
    Private MsAmodPath As String = "" 'path to amod file
#End Region
#End Region
#Region "Properties"
#Region "Public attributes"
    Public ReadOnly Property AModOneVersion() As ClsDsAModOneVersion
        Get
            Return MoDsAModOneVersion
        End Get
    End Property
    Public ReadOnly Property AmodPath() As String
        Get
            Return MsAmodPath
        End Get
    End Property
#End Region
#End Region

    '#######################################
    'execute function
    Public Function Execute(ByRef OoAction As ClsAction) As GeActionResult
        Try
            Dim LeResult As GeActionResult = GeActionResult.kkOk
            '---------------------------------------------
            'ACTION BEFORE ACTION
            '---------------------------------------------

            '---------------------------------------------
            'ACTION
            '---------------------------------------------
            Select Case OoAction.Action
                Case GeAction.kkamodImportUnitFromForm
                    MoDsAModOneVersion = OoAction.GetData("DSAMODONEVERSION")
                    MsAmodPath = OoAction.GetData("AMODPATH")
                    Dim LoFrmImportForm As frmImportForm = New frmImportForm
                    OoAction.SetData(Me, "CLSDFRMIMPORTFORM")

                    LeResult = LoFrmImportForm.Execute(OoAction)
            End Select
            '---------------------------------------------
            'ACTION AFTER ACTION
            '---------------------------------------------

            '---------------------------------------------
            Return LeResult
            '---------------------------------------------

        Catch ex As Exception
            LogEventFromException(ex, , , )
            Return GeActionResult.kkError
        End Try
    End Function
    '#######################################

End Class
